;;;; Created on 2007-03-24 22:20:28

;;; RANDOM

(defun rands (count range)
  (let ((r (list )))
    (progn
      (dotimes (i count)
        (setf r (cons (random range) r)))
      r)))

(defun randbin (count)
  (if (> count 1)
    (cons (random 10) (randbin (- count 1)))
    (cons (random 10) nil)))